home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / NewWindow.AmiCAD < prev    next >
Text File  |  2000-11-10  |  1KB  |  64 lines
  1. /* Script NewWindow
  2.     Version 1.00, 10 avril 2000 © R.Florac
  3.     Version 1.01, 10 novembre 2000 (localisation anglais/français)
  4.     $VER: NewWindow.AmiCAD 1.01 (© R.Florac, 10/11/2000)
  5.  Exemple d'utilisation :
  6.     call 'NewWindow.AmiCAD' nom_fichier
  7.     code = result
  8. */
  9.  
  10. signal on error
  11. signal on syntax
  12.  
  13. options results
  14.  
  15. parse arg nom_fichier
  16. p=address()
  17.  
  18. 'LANGUAGE'
  19. if result="français.language" then fr=1
  20. else fr=0
  21.  
  22. 'VERSION(0)'
  23. if result < 2.05 then do
  24.     if fr=1 then 'MESSAGE("Ce script nécessite"+CHR(10)+"AmiCAD 2.05 ou mieux")'
  25.     else 'MESSAGE("This script needs"+CHR(10)+"AmiCAD 2.05 or better")'
  26.     return -1
  27. end
  28.  
  29. 'NEWSHEET'
  30. code=result
  31. if code < 0 then do
  32.     if fr= 1 then 'MESSAGE("Création nouveau document impossible")'
  33.     else 'MESSAGE("Creating new document error")'
  34.     return -1
  35. end
  36.  
  37. port = 'AmiCAD.'code
  38. address command
  39. waitforport port
  40. if rc=5 then do
  41.     address VALUE p
  42.     if fr=1 then 'MESSAGE("Port 'port' non trouvé")'
  43.     else 'MESSAGE("Port 'port' not found")'
  44.     return -1
  45. end
  46.  
  47. address VALUE port
  48. 'FILENAME("'nom_fichier'")'
  49.  
  50. return code
  51.  
  52. syntax:
  53. erreur=RC
  54. address VALUE p
  55. if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  56. else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  57. return -1
  58.  
  59. error:
  60. address VALUE p
  61. if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
  62. else 'MESSAGE("Error in line 'SIGL'")'
  63. return -1
  64.